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module SCSPDEF; 
Version: *v04-000' 


PRRRARAAASLASLALALALALLALELAAA ARES E SESE ASA SEES RRR ERR R ARERR SERA R AAR ARAL SSS SY 
t 


* 
{* COPYRIGHT cs) 1978, 1980, 1982, 1984 B * 
fs DIGITAL EQUIPMENT CORPORATION, ” MAYNARD. MASSACHUSETTS. ® 
+ ALL RIGHTS RESERVED. * 
® 
{* THIS SOFTWARE is FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
* ONLY IN ACCORDANCE T SU LICENSE AND WITH THE * 
* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR AN THE * 
* COPIES THEREOF a NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
{* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ts TRANSFERRED. * 
* ® 
{* phe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
{* SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
- CORPORA ION. * 
coe 
{* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
ts SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : 
| ES LIE ANI IS SN TL A ARES mt AE ARNDT 
{e+e 
{* 
t: FACILITY: VAX/VMS Cluster Server Process 
+ ABSTRACT: CSP Internal Data Structure Definitions 
ts AUTHOR : Paul R. Beck 
® 
+ DATE: 3-MAR-1983 Last Edit: 29-JUL-1983 17:47:11 
+ REVISION HISTORY: 
{ v03-007 ADE0002 Alan Elér ides e 28-Feb-1983 
? Add CSP$_LOCAL and CsbsK _QU0R 
{ v03-006 ADE0001 Alan D. Eldrid 7-Dec-1983 
{ Add CLX$A_P0_CSD oad CLXSA_ $0 SD. Removed CLxsw.. NETCHAN, 
; Add CLX$L_P1 thru P4 for uSe By client code. 
{ Add CSD$W_STS, remove CSD$W_NET_CHAN, and rearrange fields 
{ for proper alignment. 
{ Add CLXS$V_RESUME_REQ and changed CLX$V_MUTEX semantics. 
f Add SCSPDEF codes. 
{ v03-005 PRBO249 99-Sep-1983 18:11 
Add CSD$SL_P1 : SDSL iy default offset definitions. 
v03-004 CwH3001 Cw Hobbs 30-Jul-1983 
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Add OPCOM and MOUNT clients. 


v03-003 PRBO232 aul Beck 14-JUL-1983 11:36 
Add support for bette stack in CLX structure. 


v03-002 peaeert Paul Beck 
Lient ponetans for RCP control. 
Change ‘'CTX"’ to “'CLX 


v03-001 JLV0248 e Van 29-APR-1983 
Add offsets for ag by wtF client constants. 


19=MAY=1983 22:39:49 


. 


16-SEP-1984 16:45:59.39 Page 2 


MCF 


CSPDEF .SDL;1 16-SEP-1984 16:45:56.3 Page 3 


GOOULE SCSPDEF ; 
je CSP - Codes used for communication between the CSP process and the loadable 


\7 Exec code 
/* 
CONSTANT 
(nop /* ets F Should never be used 
init /* Initialize loadable code and data 
,abort /* CSP process is gone or going away 
,badcsd /* Something wrong with CSD structure 
-done /* Block transfer exchange has finished 
reply /* Send a block transfer and terminate 
reject /* Don't engage in block transfer 
/* Request to pass local CSD to CSP 


local 
§ EQUALS 0 INCREMENT 1 
PREFIX csp TAG $ ; 


CONSTANT csp$k_max_flwetl EQUALS 8 ; /* Maximum allowed active requests 
CONSTANT csp$k_max_csding EQUALS 4096 ; /* Maximum allowed CSD Length 


END_MODULE ; 


MCF 


end 
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TOMAS SCLXDEF ; /* 
- CLK = Scheduling context for CSP 
/* Registers are saved by dint of the CALL 


/* creates the CLX block, and are restored 
/* must be saved and restored explicitly. 


t- 
AGGREGATE $clxdef STRUCTURE PREFIX clx$; 


flink ADDRESS; /* 
blink ADDRESS: /* 
size WORD UNSIGNED; /* 
type BYTE UNSIGNED: /* 


Tosb_stat | WORD UNSIGNED; 
iosb_size WORD UNSIGNED; 
iosb_devdata LONGWORD UNSIGNED; 


END osb_structure; 
END iosb_overlay; 
stacksize LONGWORD UNSIGNED; /* 
stack S; /* 


stackblock STRUCTURE; 
local_stack BYTE UNSIGNED 
DIMENSION 256 TAG B; 
END stackblock; 


CONSTANT Local_stack EQUALS 256; 
CONSTANT “‘Length’* EQUALS .; /* 


flags puerta UNION; 
flags  6YTE UNSIGNED; * 
flags_bits STRUCTURE; /* 
queue BITFIELD MASK; /* 
mutex BITFIELD MASK; /* 
resume_req BITFIELD MASK; /* 
Local_stack BITFIELD MASK; /* 
iller BITFIELD LENGTH 8-* 
END flags_bits; 
END flags—overlay; 
sO_csd ADDRESS; /* 
po_csd ADDRESS; /* 
1 LONGWORD UNSIGNED; /* 
P2 LONGWORD UNSIGNED; /* 
P35 LONGWORD UNSIGNED; /* 
4 ONGWORD UNSIGNED; /* 
index LONGWORD UNSIGNED; /* 
r LONGWORD UNSIGNED; /* 
ri LONGWORD UNSIGNED; /* 
iosb_over lay UNION; 
Tosb QUAOWORD UNSIGNED; /* 
fosb_structure STRUCTURE; 


‘al 
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to the routine which 
by the RET. RO and R1 


forward link 

reverse Link 

size of structure 
structure type (DYNS$¢_xxx) 


Flags 
CLX queue Linkage in used 


mutex between RESUME and WAIT routine 
signal flag between RESUME and WAIT 


local stack in use. 
FILL; 


Pointer to SO space CSD 
Pointer to PO space CSD 
Parameter for use by client code 
Parameter for use by client code 
Parameter for use by client code 
Parameter for use by client code 


context ID for debugging purposes 


saved 
saved R1 


1/0 status block 
/* 10SB completion status 


Sed 


/t 
/* JOSB device-dependent data 


size of saved stack + registers 
addr of saved stack area 


length of data structure 


OSB size of completed operation 


/* allow local stack of 64 longwords 


wef 


sal bad > ka <= = 2 ' 
SPP eee reese eeneenenne + t 
Tee eee ee eee eee ee eee ee eee eee ee ee ee eo) ee ee ee ee ee ee ee 


CLL 
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END $clxdef; 
END_MODULE; 
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MODULE SCSDDEF; /* 
CSD = Cluster Server Data 


4 
16-SEP-1984 16:45:59.39 Page 6 


fd Defines client data to send to the cluster server in the indicated node. 


AGGREGATE $csddef STRUCTURE PREFIX csd$; 


messages UNION; 
maincsd STRUCTURE; 


flink ADDRESS; 
blink ADDRESS; 
size WORD UNSIGNED; 
type BYTE UNSIGNED; 


subtype BYTE UNSIGNED; 


/* 
constant DYNSC_CSD equals 100 prefix ' 


/t 
Ae Caller-supplied data 
t 


code WORD UNSIGNED; 
csid soverlay 
cs 


csid_structure STRUCT 


fsid_index WORD UNSIGNED: 
csid_se WORD UNSIGNED: 


END tsid_structure; 
END csid_overlay; 


/* 
/* 
/* 
/* 


/* 


forward Link 

reverse Link 

size of $path 

structure type (DYNSC_CLU) 

sfructurs,, subtype (DYN$C-CSD) 
tag ‘“'; /* ** TEMPORARY #e* 


client code - who gets the msg in CSP 


LONGHORD_UNSIGNED; /* Cluster ID 


/* index into CLUSGL_CLUSVEC 
/* sequence number 


sendlen LONGWORD UNSIGNED; /* Length of send buffer 
sendoff LONGWORD UNSIGNE /* offset (self relative) to send buffer 
recvlen LONGWORD UNSIGNED: /* Length of recv buffer 
recvuoff LONGWORD UNSIGNED; /* offset (self progetto ws to recv buffer 
ested ADDRESS; /* address of caller A 
Jicr astadr ADDRESS; /* address of caller's celta s AST 
user_ -7stpra LO LONGWORD UNSIGNED; /* param... 
user_ios /* caller's caller's IOSB 
user—efn BYTE UNSIGNED; /* 
. efn ~ BYTE UNSIGNED; 
* 
Internal data (filled in by EXESALLOC_CSD) 
e 
sts_over lay UNION; 
sts WORD UNSIGNED; /* Status flags 
sts_bits STRUCTURE ; 
sts_rem BITFIELD MASK ; /* Request is from remote node 
END “sts_bits ; 
END sts_overlay ; 


ipid_overlay UNION; 


Ipid LONGWORD UNS1GNED; /* Local Process ID 


ote steucture STRUCTU 


pid. index WORD UNSIGNED: 
D UNSIGNED: 


ipi 
END oretd. structure; 


/* index 
/* sequence number 
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END ipid_overlay; 
jiosb_overla UNION; 
Tnt_ios QUADWORD UNSIGNED; /* Internal 1/0 status block 
jiosb_structure STRUCTURE; 
Tosb_stat WORD UNS ENED; /* 10SB completion status 
jiosb_size WORD UNSIGNED; /* IOSB size of completed operation 
iosb_devdata LONGWORD UNSIGNED; /* I0SB device-dependent data 
END Tosb_structure; 
END iosb_overlay; 
procpriv QUADWORD UNSIGNED; /* preces* privileges of caller 
qrecest LONGWORD UNSIGNED; /* UIC of caller : 
ve mgcnt LONGWORD UNSIGNED: /* used to detect new image 
or Start of caller-supplied message 
‘ CONSTANT Length EGUALS .; /* start of buffers 
® 
. Define some default of ets for client-supplied data 


client_data UNION; 
data BYTE UNSIGNED TAG “AB; /® ... 
default_data STRUCTURE; /* allow clients to 1 tet da 
pl LONGWORD UNSIGNED; /* ... CSDSL_P1 - CSD 
p2 LONGWORD UNSIGNED; /* ... $0 they don't need to edit this 
p35 LONGWORD UNSIGNED; FO noe Tiley 
p& LONGWORD UNSIGNED; 


UNSI : 
p8 LONGWORD UNSIGNED; 
END default_data; 
END client_data; 
END maincsd; 


/* 
/* Client codes 
/t 


CONSTANT ( /* caller codes 
test, { test vector 
brkthru, { break though write 
4 ot { RCP contro 
jnl_master, $ Journal failover (remastering) 
Opcom, Operator communications 
: { Cluster mount 
{ Quorum disk support 


I EQUALS 1 INCREMENT 1; 
* 
/t 
brkthru STRUCTURE; 
brk_carcon LONGWORD UNSIGNED; /* carriage control 


~™ 
s 


SBRKTHRU message definitions 
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brk ~f legs LONGWORD UNSIGNED 
brk_sendto CHARACTER LENGTH Pie: 
brk_sndtyp RD UNSIGNED: 
rk_reqid WORD UNSIGNED; 
brk_timout RD IGNED; 
brk_msglen WORD UNSIGNED; 
brk“msgbut CHARACTER LENGTH 0; 
END brkthru; 
/* 
Ae +». mext caller def goes here... 
. 
END messages; /* end of main UNION 


END Scsddef; 


END_MODULE ; 
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flags 

counted string 
send to value 
class request id 
seconds of timeout 
message length 
text string 
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